Dim IsVisible As Boolean
IsVisible = True

If IsVisible Then 
	Beep
	IsVisible = false
Else
	Beep
	Beep
End If
